go to marker(0)go to the frame+1repeat with i=21 to 24 set the castnum of sprite i=0 puppetsprite i,false set the immediate of sprite i=1end repeatrepeat while soundbusy(1)end repeatrepeat with i=3 to 11 puppetSound "card" repeat with j=b62 to b64 set the castnum of sprite i=j+4 set the castnum of sprite (i+9)=j updatestage end repeat set the castnum of sprite i=i+14 set the castnum of sprite (i+9)=i+14 updatestage set the immediate of sprite (i+9)=1end repeatglobal repset rep=0play "card-anima"set the castnum of sprite clickon()=h84updatestagewait 5set the castnum of sprite clickon()=h82updatestagepuppetsound 0go to the frame+1repeat while soundbusy(1)end repeatrepeat with i=3 to 24 set the castnum of sprite i=0 puppetsprite i,falseend repeatglobal score,casscore(mput,14,1)repeat while soundbusy(1)end repeatunloadif cas=1 then go to movie pathname() & "SexySlot"else if cas=2 or cas=4 then go to movie pathname() & "HotStar"else if cas=3 then go to 120 of movie pathname() & "Casino"end ifglobal t,tt,rcrepeat with i=3 to 11 if (t+2=i) and ((the castnum of sprite i)<>b65) then set rc=i set tt=(the castnum of sprite rc)-16 exit repeat end ifend repeatif tt=0 then repeat with i=1 to 9 if ((the castnum of sprite (i+2))<>b65) and (the castnum of sprite ((t-i)+2)<>b65) and ((t-i)<10) then set rc=i+2 set tt=(the castnum of sprite rc)-16 exit repeat end if end repeatend ifpuppetSound "card" sub rcif tt>t then sub2 rc go to marker(0)else if tt=t then nocard 1else if the castnum of sprite (t-tt+2)<>b65 and (t-tt+2)<=11 then sub (t-tt+2) nocard 1else sub2 rc go to marker(0)end ifglobal t,ttset t=0set tt=0puppetsprite 23,truepuppetsprite 24,trueset the loch of sprite 23=281set the locv of sprite 23=247set the loch of sprite 24=361set the locv of sprite 24=246set r=random(6)set rr=random(6)+8set the castnum of sprite 23=rset the castnum of sprite 24=rrset t=r+rr-8repeat with i=3 to 20 puppetsprite i,trueend repeatplay donerepeat with i=21 to 24 puppetsprite i,falseend repeatplay "dice-anima"check 1repeat with i=21 to 24 puppetsprite i,falseend repeatplay "dice-anima"check 0go to the frameglobal t,ttif the castnum of sprite clickon()<>b61 then repeat while the mousedown set the castnum of sprite clickon()=b88+(clickon()-11) updatestage end repeat set the castnum of sprite clickon()=a28+(clickon()-11) puppetSound "card" set tt=(the castnum of sprite clickon())-16 sub clickon() if tt>t then sub2 clickon() else if tt=t then nocard 0 else if the castnum of sprite (t-tt+11)<>b61 and (t-tt+11)<=20 then sub (t-tt+11) nocard 0 else sub2 clickon() end ifend ifglobal ty,tmset ty=0set tm=0repeat with i=3 to 11 if (the castnum of sprite i<>b65) then set tm=tm+(i-2) end ifend repeatrepeat with i=12 to 20 if (the castnum of sprite i<>b61) then set ty=ty+(i-11) end ifend repeatif ty>tm then puppetSound 0 go to "lost"else if ty<tm then go to "win"else if ty=tm then go to "draw"end ifset the castnum of sprite clickon()=h83updatestagewait 5set the castnum of sprite clickon()=h81updatestageglobal scorescore(mput,14,2)repeat with i=3 to 20 puppetsprite i,falseend repeatglobal casunloadif cas=1 then go to movie pathname() & "SexySlot"else if cas=2 or cas=4 then go to movie pathname() & "HotStar"else if cas=3 then go to 120 of movie pathname() & "Casino"end ifplay "end"puppetsprite 21,truepuppetsprite 22,truepuppetsound 0repeat with i=3 to 20 puppetsprite i,falseend repeatgo to 2puppetSound 0repeat with i=21 to 24 set the castnum of sprite i=0 puppetsprite i,falseend repeatrepeat while soundbusy(1)end repeatgo to "you"repeat while soundbusy(1)end repeatgo to "mac"
